﻿Public Class SAEventArgs
    Inherits EventArgs
    Public Property Result As Results
    Public Property Message As String
    Sub New(EventMessage As String, e As Results)
        Result = e
        Message = EventMessage
    End Sub
    Enum Results
        'General
        Success = 1
        GeneralFailure = 2
        FileMissing = 7
        Undefined = 8
        NotConnected = 9
        NoContent

        'Definition Errors
        MissingServerName = 300
        MissingFolder = 301
        MissingVersionFile = 302
    End Enum
    Enum StatusCodes
        NewItem = 1
        Defined = 2
        Uploaded = 3
        Available = 4
        Missing = 5
        Retired = 6
    End Enum
End Class
